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-- BcdTreeDefs.Mesa Edited by Johnsson on April 12, 1978 4:33 PM 

DIRECTORY 

BcdTabDefs: FROM "bcdtabdef s\ 
TableDefs: FROM "tabledefs"; 

BcdTreeDefs: DEFINITIONS - BEGIN 

TreeLink: TYPE - RECORD [ 
SELECT tag: * FROM 

hash => [index: BcdTabDef s. HTIndex], 
symbol »> [index: BcdTabDef s.STIndex] , 
string => [index: TableDefs .fablelndex], 
subtree ■> [index: Treelndex], 
ENDCASE]; 

TreeNode: TYPE - MACHINE DEPENDENT RECORD [ 
free: BOOLEAN, -- reserved for allocator 
name: NodeName, 
nsons: [0. .MaxNSons], 
codelinks: BOOLEAN, 
fill: [0..377B], 
sourceindex: CARDINAL, 
sonl: TreeLink, 
son2: TreeLink, 
son3: TreeLink, 
son4: TreeLink, 
son5: TreeLink]; -- and as many more as needed 

MaxNSons: CARDINAL * 7; -- without null terminator 
TreeNodeSize: CARDINAL = 2; -- minimum tree node size 

endTreelndex: Treelndex = LAST[TreeIndex]-l; 

nullTreelndex: Treelndex ■ LAST[TreeIndex]; 

Treelndex: TYPE - POINTER [0 . .TableDefs .TableLimit) TO TreeNode; 

empty: TreeLink a TreeLink[subtree[index: nullTreelndex]]; 
endmark: TreeLink ■ TreeLink[subtree[index: endTreelndex]]; 
nullid: TreeLink * TreeLink[hash[index: BcdTabDef s .HTNull]]; 

TreeSonField: TYPE = RECORD [soni: TreeLink]; 

TreeXIndex: TYPE - POINTER [0 . .TableDefs .TableLimit) TO TreeSonField; 

NodeName: TYPE ■ {list, item, source, config, assign, plus, then, module}; 

-- tree construction interface 

mlpush: PROCEDURE [v: TreeLink]; 

mlpop: PROCEDURE RETURNS [TreeLink]; 

maketree: PROCEDURE [name: NodeName, count: INTEGER] RETURNS [TreeLink]; 

makelist: PROCEDURE [size: INTEGER] RETURNS [TreeLink]; 

pushtree: PROCEDURE [name: NodeName, count: INTEGER]; 
pushlist: PROCEDURE [size: INTEGER]; 
pushhash: PROCEDURE [hti: BcdTabDef s .HTIndex] ; 

Attribute: TYPE - {links}; 

setsourceindex: PROCEDURE [source: CARDINAL]; 
setattribute: PROCEDURE [attr: Attribute, value; BOOLEAN]; 

-- tree deallocation 

freenode: PROCEDURE [node: Treelndex]; 

freetree: PROCEDURE [t: TreeLink] RETURNS [TreeLink]; 

-- tree testing 

testtree: PROCEDURE [t: TreeLink, name: NodeName] RETURNS [BOOLEAN]; 

listlength: PROCEDURE [t: TreeLink] RETURNS [CARDINAL]; 
listhead: PROCEDURE [t: TreeLink] RETURNS [TreeLink]; 
listtail: PROCEDURE [t: TreeLink] RETURNS [TreeLink]; 

-- tree manipulation 



BcdTreeDefs.mesa 2-Sep-78 12:25:15 Page 2 



TreeScan: TYPE ■ PROCEDURE [t: TreeLink]; 

TreeMap: TYPE ■ PROCEDURE [t: TreeLink] RETURNS [v: TreeLink]; 

scanlist: PROCEDURE [root: TreeLink, action: TreeScan]; 

reversescanlist: PROCEDURE [root: TreeLink, action: TreeScan]; 

update! ist: PROCEDURE [root: TreeLink, action: TreeMap] RETURNS [TreeLink]; 

-- adminisrative procedures 

treeinit, treeerase: PROCEDURE; 

END. 



